home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 2.iso / dist / fw_gnome-core.idb / usr / freeware / bin / gnome-convert.z / gnome-convert
Text File  |  2002-07-08  |  3KB  |  134 lines
  1. #!/usr/bin/perl
  2.  
  3. sub basicescape {
  4.     s#&#&apm;#g;
  5.     s#<#<#g;
  6.     s#>#>#g;
  7. }
  8.  
  9. sub tagify {
  10.     s#(^<.*)#<I><$1</I>#;
  11.     s#([a-z]*://\S*)#<A HREF="$1">$1</A>#g;
  12.     s#([-a-zA-Z._0-9]+\@[-a-zA-Z._0-9]+)#<A HREF="mailto:$1">$1</A>#g;
  13.     s#<(\S+\.h)>#<A HREF="file:/usr/include/$1"><$1></A>#g;
  14.     s# (/[a-z]+/[a-z.-/]+)# <A HREF="file:$1">$1</A>#g;
  15. }
  16.  
  17. sub plain {
  18. }
  19.  
  20. $_ = $ARGV[1];
  21. if (/^text.html/) {
  22. } else {
  23.     print "Can't convert to something else than text/html... yet.\n";
  24.     exit(1);
  25. }    
  26.  
  27. $_ = $ARGV[0];
  28. if (/^text.plain/) {
  29.     print "<HTML><BODY>\n";
  30.     print "<PRE>";
  31.     while( <STDIN> ) {
  32.     basicescape();
  33.     tagify();
  34.     print "$_";
  35.     }
  36.     print "</PRE>";
  37.     goto done;
  38. } 
  39.  
  40. if (/^internal.lynx-news/) {
  41.     while( <STDIN> ) {
  42.     if (/<XMP>/) {
  43.         print "<HTML><HEAD><TITLE>News article</TITLE></HEAD><BODY><PRE>";
  44.         last;
  45.     }
  46.     print "$_";
  47.     }
  48.     $first = 1;
  49.     $skip = 0;
  50.     while( <STDIN> ) {
  51.     if ($skip) { $skip--; next; }
  52.     $first = 0;
  53.  
  54.     basicescape();
  55.         s:>+(\S+\@[-a-zA-Z._0-9]*):<A HREF=\"mailto\:$1\">$1</A>:;
  56.     s#From:(.*)#<B>From:$1</B>#;
  57.     s#Subject:(.*)#<B>Subject:$1</B>#;
  58.         s#(\S+\@[-a-zA-Z._0-9]*)#<A HREF="mailto:$1">$1</A>#;
  59.     if (/^Mime-Version/) { next; }
  60.     if (/^Message-ID/) { next; }
  61.     if (/^NNTP-Posting-Host/) { next; }
  62.     if (/^Content-Type/) { next; }
  63.     if (/^Lines/) { next; }
  64.     if (/^Newsgroups/) { 
  65.         s#([a-zA-Z]*\.[a-zA-Z.]*)#<A HREF="$1">$1</A>#g;
  66.     }
  67.     if (/^Path/) { $skip = 1; next; }
  68.  
  69.     if (/^\s*$/) { print "\n\n"; last; }
  70.     print "$_";
  71.     }
  72.     while( <STDIN> ) {
  73.     basicescape();
  74.     tagify();
  75.     s#</XMP>#</PRE>#;
  76.     print "$_";
  77.     }
  78.     goto done;
  79. }
  80.  
  81. if (/^internal.hexdump/) {
  82.     print "<h1>Hexdump</h1>\n";
  83.     print "<pre>\n";
  84.     open( INPUT, 'od -A x -t xC |' );
  85.     while ( <INPUT> ) {
  86.     print $_;
  87.     }
  88.     goto done;
  89. }
  90.  
  91.  
  92. $filename = $ARGV[2];
  93. $filename =~ s#.*/##;
  94. $tmpname = `mktemp /tmp/$filename.conv.XXXXXX`;
  95. $filetype = $_;
  96.  
  97. open( INPUT, "cat > $tmpname |" );
  98. while ( <INPUT> ) {
  99.     print $_;
  100. }
  101.  
  102. $_ = $filetype;
  103. if (/^application.postscript/) {
  104.     print "<h1>Postscript</h1>\n";
  105.     print "<p>External application <tt>gv $tmpname</tt> was called for you. Press <i>back</i> when you are done.\n";
  106.  
  107.     system( "gv $tmpname &" );
  108.     goto done;
  109. }
  110.  
  111. if (/^application.pdf/) {
  112.     print "<h1>Pdf</h1>\n";
  113.     print "<p>External application <tt>gv $tmpname</tt> was called for you. Press <i>back</i> when you are done.\n";
  114.  
  115.     system( "gv $tmpname &" );
  116.     goto done;
  117. }
  118.  
  119. print "<h1>Unknown data type</h1>\n";
  120. print "<p>File with unkown type <TT>$_</TT> was encountered. If it can reasonably be converted to text/html, add conversion routine to <CODE>gnome-convert</CODE> script.\n";
  121. print "<p>File has been saved into <TT>$tmpname</TT>, delete it if you don't need it.\n";
  122.  
  123. print "<p>Additionaly, you may\n<ul>\n";
  124. print "<li><A HREF=\"(text/plain)file:$tmpname\">View it as text</A>\n";
  125. print "<li><A HREF=\"(text/html)file:$tmpname\">View it as html</A>\n";
  126. print "<li><A HREF=\"(internal/hexdump)file:$tmpname\">View it as hexdump</A>\n";
  127. print "</ul>";
  128.  
  129. $type = `file $tmpname`;
  130. print "<p>PS: file's type seems to be: <pre>$type</pre>\n";
  131.  
  132. done:
  133. print "<HR><P ALIGN=right><I>[$ARGV[2]: $ARGV[0] -> $ARGV[1]]</I></BODY></HTML>";
  134.